home *** CD-ROM | disk | FTP | other *** search
- seg_a segment byte public
- assume cs:seg_a, ds:seg_a
-
-
- org 100h
-
- lalala proc far
-
- start:
- jmp short real_start
-
-
- real_start:
- mov ah,9
- mov dx,offset data_1 ; ('')
- int 21h ; DOS Services ah=function 09h
- ; display char string at ds:dx
- mov ah,0Ah
- mov dx,offset data_5
- int 21h ; DOS Services ah=function 0Ah
- ; get keybd line, put at ds:dx
-
- mov di,offset hehe
- label_1:
-
- ;;;
- xor dx,dx ; Zero register
- mov cl,data_6
- mov si,offset data_7
-
- locloop_2:
- mov dl,[si]
- mov al,[di]
- xor al,dl
- mov [di],al
- inc si
- inc di
- loop locloop_2 ; Loop if cx > 0
- inc count
- cmp count,5
- jnz label_1
-
- mov cl,[di-2]
- cmp cl,24h
- je loc_3 ; Jump if equal
-
- mov ah,9
- mov dx,offset data_3 ; ('')
- int 21h ; DOS Services ah=function 09h
- ; display char string at ds:dx
- int 20h ; DOS program terminate
-
- ;---
- data_1 db '■ (x)''98 by Shaman [UCL]', 0Dh, 0Ah
- db '■ ìáΦ «ΓóÑΓ ùѼíÑα½Ñ¡π (SpamCoder''π [PRiZM])'
- db 0Dh, 0Ah, '■ Enter Password: $'
- data_3 db 0Dh, 0Ah, '■ Invalid Password!', 0Dh,0Ah, '$'
-
- count db 0
-
-
- ;---
- loc_3:
- hehe db 0d7h,0d5h,67h,0deh,0abh,74h,0afh,40h,0beh,1,4ah,6bh,90h
- db 44h,0e7h,96h,42h,32h,3,40h,2ah,22h,1,0,0fh,7,4eh,41h,91h
- db 0cah,67h,0ch,0bh,3,0bh,1eh,7,16h,1fh,1,3dh,18h,14h,0bh
- db 1ah,54h,6fh,6bh,57h
-
-
- data_5 db 64
- data_6 db 0
- data_7 db 10 dup (0)
-
-
- lalala endp
-
- seg_a ends
-
-
-
- end start
-